home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / selvb20 / sexample.frm < prev    next >
Text File  |  1995-06-18  |  13KB  |  376 lines
  1. VERSION 2.00
  2. Begin Form examples 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Selector Examples"
  6.    ClientHeight    =   5910
  7.    ClientLeft      =   2490
  8.    ClientTop       =   1515
  9.    ClientWidth     =   8715
  10.    Height          =   6255
  11.    Left            =   2460
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   5910
  15.    ScaleWidth      =   8715
  16.    Top             =   1200
  17.    Width           =   8775
  18.    Begin SELECTOR Selector7 
  19.       Angle           =   1
  20.       AutoAlign       =   -1  'True
  21.       AutoAngle       =   -1  'True
  22.       AutoOffset      =   0   'False
  23.       AutoOffsetDistance=   0
  24.       AutoOffsetStyle =   0  ' 0 - Circular 
  25.       AutoRadius      =   0.8
  26.       AutoStartAngle  =   1
  27.       AutoStopAngle   =   179
  28.       BackgroundColor =   &H00FFFF00&
  29.       BevelInner      =   2  ' 2 - Inset
  30.       BevelOuter      =   2  ' 2 - Inset
  31.       BevelWidth      =   2
  32.       BorderType      =   1  ' 1 - Bevel
  33.       BorderWidth     =   2
  34.       Captions        =   SEXAMPLE.FRX:0000
  35.       FrameColor      =   &H00000000&
  36.       FrameScaleX     =   0
  37.       FrameScaleY     =   0
  38.       FrameStyle      =   0  ' 0 - None
  39.       Height          =   1980
  40.       Highlight       =   -1  'True
  41.       HighlightColor  =   &H00000000&
  42.       KnobColor       =   &H00000000&
  43.       KnobOriginX     =   -0.2
  44.       KnobOriginY     =   0
  45.       KnobRadius      =   0.6
  46.       KnobStyle       =   3  ' 3 - User Defined
  47.       KnobUserDefined =   "0,1100,  350,700,  100,700,  200,-200,  0,-100,  -200,-200,  -100,700,  -350,700"
  48.       Left            =   5805
  49.       LineDisplay     =   -1  'True
  50.       LineInnerRadius =   0.4
  51.       LineThickness   =   1
  52.       MarkUserDefined =   ""
  53.       MouseControl    =   -1  'True
  54.       OutlineAlign    =   0  ' 0 - Left 
  55.       OutlineColor    =   &H00000000&
  56.       OutlineTitle    =   ""
  57.       OutlineWidth    =   0
  58.       Radius          =   0
  59.       TabIndex        =   6
  60.       Top             =   3915
  61.       Value           =   0
  62.       Width           =   2895
  63.       XScale          =   0
  64.       YScale          =   0
  65.    End
  66.    Begin SELECTOR Selector6 
  67.       Angle           =   1
  68.       AutoAlign       =   -1  'True
  69.       AutoAngle       =   -1  'True
  70.       AutoOffset      =   0   'False
  71.       AutoOffsetDistance=   1
  72.       AutoOffsetStyle =   2  ' 2 - Vertical
  73.       AutoRadius      =   0.8
  74.       AutoStartAngle  =   1
  75.       AutoStopAngle   =   179
  76.       BackgroundColor =   &H00C0DCC0&
  77.       BevelInner      =   2  ' 2 - Inset
  78.       BevelOuter      =   2  ' 2 - Inset
  79.       BevelWidth      =   2
  80.       BorderType      =   1  ' 1 - Bevel
  81.       BorderWidth     =   2
  82.       Captions        =   SEXAMPLE.FRX:0246
  83.       FrameColor      =   &H00000000&
  84.       FrameScaleX     =   0
  85.       FrameScaleY     =   0
  86.       FrameStyle      =   0  ' 0 - None
  87.       Height          =   1965
  88.       Highlight       =   -1  'True
  89.       HighlightColor  =   &H0000FFFF&
  90.       KnobColor       =   &H00808000&
  91.       KnobOriginX     =   -0.2
  92.       KnobOriginY     =   0
  93.       KnobRadius      =   0.3
  94.       KnobStyle       =   0  ' 0 - Cicular
  95.       KnobUserDefined =   ""
  96.       Left            =   5835
  97.       LineDisplay     =   -1  'True
  98.       LineInnerRadius =   0.4
  99.       LineThickness   =   1
  100.       MarkUserDefined =   ""
  101.       MouseControl    =   -1  'True
  102.       OutlineAlign    =   0  ' 0 - Left 
  103.       OutlineColor    =   &H00000000&
  104.       OutlineTitle    =   ""
  105.       OutlineWidth    =   0
  106.       Radius          =   0
  107.       TabIndex        =   5
  108.       Top             =   1935
  109.       Value           =   0
  110.       Width           =   2895
  111.       XScale          =   0
  112.       YScale          =   0
  113.    End
  114.    Begin SELECTOR Selector3 
  115.       Angle           =   1
  116.       AutoAlign       =   -1  'True
  117.       AutoAngle       =   -1  'True
  118.       AutoOffset      =   -1  'True
  119.       AutoOffsetDistance=   0
  120.       AutoOffsetStyle =   0  ' 0 - Circular 
  121.       AutoRadius      =   0.8
  122.       AutoStartAngle  =   1
  123.       AutoStopAngle   =   179
  124.       BackgroundColor =   &H00C0C0C0&
  125.       BevelInner      =   0  ' 0 - None
  126.       BevelOuter      =   1  ' 1 - Raised
  127.       BevelWidth      =   2
  128.       BorderType      =   1  ' 1 - Bevel
  129.       BorderWidth     =   2
  130.       Captions        =   SEXAMPLE.FRX:03FC
  131.       FrameColor      =   &H00000000&
  132.       FrameScaleX     =   0
  133.       FrameScaleY     =   0
  134.       FrameStyle      =   0  ' 0 - None
  135.       Height          =   1950
  136.       Highlight       =   0   'False
  137.       HighlightColor  =   &H00000000&
  138.       KnobColor       =   &H00800080&
  139.       KnobOriginX     =   -0.2
  140.       KnobOriginY     =   0
  141.       KnobRadius      =   0.5
  142.       KnobStyle       =   2  ' 2 - Complex
  143.       KnobUserDefined =   ""
  144.       Left            =   5820
  145.       LineDisplay     =   -1  'True
  146.       LineInnerRadius =   0.4
  147.       LineThickness   =   1
  148.       MarkUserDefined =   ""
  149.       MouseControl    =   -1  'True
  150.       OutlineAlign    =   0  ' 0 - Left 
  151.       OutlineColor    =   &H00000000&
  152.       OutlineTitle    =   ""
  153.       OutlineWidth    =   0
  154.       Radius          =   0
  155.       TabIndex        =   4
  156.       Top             =   0
  157.       Value           =   0
  158.       Width           =   2895
  159.       XScale          =   0
  160.       YScale          =   0
  161.    End
  162.    Begin SELECTOR Selector5 
  163.       Angle           =   25
  164.       AutoAlign       =   0   'False
  165.       AutoAngle       =   -1  'True
  166.       AutoOffset      =   0   'False
  167.       AutoOffsetDistance=   0.7
  168.       AutoOffsetStyle =   2  ' 2 - Vertical
  169.       AutoRadius      =   0.55
  170.       AutoStartAngle  =   25
  171.       AutoStopAngle   =   290
  172.       BackgroundColor =   &H00C0C0C0&
  173.       BevelInner      =   2  ' 2 - Inset
  174.       BevelOuter      =   0  ' 0 - None
  175.       BevelWidth      =   2
  176.       BorderType      =   2  ' 2 - Outline
  177.       BorderWidth     =   2
  178.       Captions        =   SEXAMPLE.FRX:05B2
  179.       FrameColor      =   &H00808080&
  180.       FrameScaleX     =   1.1
  181.       FrameScaleY     =   1.1
  182.       FrameStyle      =   1  ' 1 - Circle
  183.       Height          =   2955
  184.       Highlight       =   -1  'True
  185.       HighlightColor  =   &H00000000&
  186.       KnobColor       =   &H00800000&
  187.       KnobOriginX     =   0
  188.       KnobOriginY     =   0
  189.       KnobRadius      =   0.4
  190.       KnobStyle       =   2  ' 2 - Complex
  191.       KnobUserDefined =   ""
  192.       Left            =   2895
  193.       LineDisplay     =   -1  'True
  194.       LineInnerRadius =   0.35
  195.       LineThickness   =   2
  196.       MarkUserDefined =   ""
  197.       MouseControl    =   -1  'True
  198.       OutlineAlign    =   2  ' 2 - Center
  199.       OutlineColor    =   &H00800000&
  200.       OutlineTitle    =   "Jiffy Car Wash"
  201.       OutlineWidth    =   3
  202.       Radius          =   0
  203.       TabIndex        =   3
  204.       Top             =   2970
  205.       Value           =   0
  206.       Width           =   2895
  207.       XScale          =   0
  208.       YScale          =   0
  209.    End
  210.    Begin SELECTOR Selector4 
  211.       Angle           =   180
  212.       AutoAlign       =   -1  'True
  213.       AutoAngle       =   -1  'True
  214.       AutoOffset      =   -1  'True
  215.       AutoOffsetDistance=   0.2
  216.       AutoOffsetStyle =   0  ' 0 - Circular 
  217.       AutoRadius      =   0.55
  218.       AutoStartAngle  =   0
  219.       AutoStopAngle   =   300
  220.       BackgroundColor =   &H00C0C0C0&
  221.       BevelInner      =   0  ' 0 - None
  222.       BevelOuter      =   0  ' 0 - None
  223.       BevelWidth      =   2
  224.       BorderType      =   0  ' 0 - None
  225.       BorderWidth     =   2
  226.       Captions        =   SEXAMPLE.FRX:0734
  227.       FontBold        =   -1  'True
  228.       FontItalic      =   0   'False
  229.       FontName        =   "Times New Roman"
  230.       FontSize        =   12
  231.       FontStrikethru  =   0   'False
  232.       FontUnderline   =   0   'False
  233.       FrameColor      =   &H00008080&
  234.       FrameScaleX     =   1.1
  235.       FrameScaleY     =   1.1
  236.       FrameStyle      =   2  ' 2 - Rectangle
  237.       Height          =   2940
  238.       Highlight       =   -1  'True
  239.       HighlightColor  =   &H0000FFFF&
  240.       KnobColor       =   &H00008080&
  241.       KnobOriginX     =   -0.05
  242.       KnobOriginY     =   -0.15
  243.       KnobRadius      =   0.4
  244.       KnobStyle       =   3  ' 3 - User Defined
  245.       KnobUserDefined =   "0,1100,  350,700,  100,700,  200,-200,  0,-100,  -200,-200,  -100,700,  -350,700"
  246.       Left            =   -15
  247.       LineDisplay     =   0   'False
  248.       LineInnerRadius =   0.35
  249.       LineThickness   =   2
  250.       MarkUserDefined =   ""
  251.       MouseControl    =   -1  'True
  252.       OutlineAlign    =   2  ' 2 - Center
  253.       OutlineColor    =   &H00FF0000&
  254.       OutlineTitle    =   "Barometric Pressure"
  255.       OutlineWidth    =   2
  256.       Radius          =   0
  257.       TabIndex        =   2
  258.       Top             =   2955
  259.       Value           =   3
  260.       Width           =   2925
  261.       XScale          =   0
  262.       YScale          =   0
  263.    End
  264.    Begin SELECTOR Selector2 
  265.       Angle           =   181
  266.       AutoAlign       =   -1  'True
  267.       AutoAngle       =   -1  'True
  268.       AutoOffset      =   -1  'True
  269.       AutoOffsetDistance=   0.4
  270.       AutoOffsetStyle =   0  ' 0 - Circular 
  271.       AutoRadius      =   0.55
  272.       AutoStartAngle  =   181
  273.       AutoStopAngle   =   360
  274.       BackgroundColor =   &H00C0C0C0&
  275.       BevelInner      =   2  ' 2 - Inset
  276.       BevelOuter      =   0  ' 0 - None
  277.       BevelWidth      =   2
  278.       BorderType      =   1  ' 1 - Bevel
  279.       BorderWidth     =   2
  280.       Captions        =   SEXAMPLE.FRX:093C
  281.       FrameColor      =   &H00C0C0C0&
  282.       FramePicture    =   SEXAMPLE.FRX:0B30
  283.       FrameScaleX     =   1.1
  284.       FrameScaleY     =   1.1
  285.       FrameStyle      =   1  ' 1 - Circle
  286.       Height          =   2955
  287.       Highlight       =   -1  'True
  288.       HighlightColor  =   &H00FF0000&
  289.       KnobColor       =   &H00000000&
  290.       KnobOriginX     =   0
  291.       KnobOriginY     =   0
  292.       KnobRadius      =   0.27
  293.       KnobStyle       =   0  ' 0 - Cicular
  294.       KnobUserDefined =   ""
  295.       Left            =   2880
  296.       LineDisplay     =   -1  'True
  297.       LineInnerRadius =   0.35
  298.       LineThickness   =   2
  299.       MarkUserDefined =   ""
  300.       MouseControl    =   -1  'True
  301.       OutlineAlign    =   0  ' 0 - Left 
  302.       OutlineColor    =   &H00000000&
  303.       OutlineTitle    =   ""
  304.       OutlineWidth    =   0
  305.       Radius          =   0
  306.       TabIndex        =   1
  307.       Top             =   -15
  308.       Value           =   0
  309.       Width           =   2910
  310.       XScale          =   0
  311.       YScale          =   0
  312.    End
  313.    Begin SELECTOR Selector1 
  314.       Angle           =   360
  315.       AutoAlign       =   -1  'True
  316.       AutoAngle       =   -1  'True
  317.       AutoOffset      =   -1  'True
  318.       AutoOffsetDistance=   0.4
  319.       AutoOffsetStyle =   1  ' 1 - Horizontal 
  320.       AutoRadius      =   0.6
  321.       AutoStartAngle  =   181
  322.       AutoStopAngle   =   360
  323.       BackgroundColor =   &H00C0C0C0&
  324.       BevelInner      =   1  ' 1 - Raised
  325.       BevelOuter      =   2  ' 2 - Inset
  326.       BevelWidth      =   2
  327.       BorderType      =   1  ' 1 - Bevel
  328.       BorderWidth     =   2
  329.       Captions        =   SEXAMPLE.FRX:516A
  330.       FrameColor      =   &H00C0C0C0&
  331.       FrameScaleX     =   1.1
  332.       FrameScaleY     =   1.1
  333.       FrameStyle      =   2  ' 2 - Rectangle
  334.       Height          =   2940
  335.       Highlight       =   -1  'True
  336.       HighlightColor  =   &H00008000&
  337.       KnobColor       =   &H00000000&
  338.       KnobOriginX     =   0
  339.       KnobOriginY     =   0
  340.       KnobRadius      =   0.3
  341.       KnobStyle       =   1  ' 1 - Pointer
  342.       KnobUserDefined =   ""
  343.       Left            =   -15
  344.       LineDisplay     =   -1  'True
  345.       LineInnerRadius =   0.35
  346.       LineThickness   =   2
  347.       MarkUserDefined =   ""
  348.       MouseControl    =   -1  'True
  349.       OutlineAlign    =   0  ' 0 - Left 
  350.       OutlineColor    =   &H00000000&
  351.       OutlineTitle    =   ""
  352.       OutlineWidth    =   0
  353.       Radius          =   0
  354.       TabIndex        =   0
  355.       Top             =   0
  356.       Value           =   4
  357.       Width           =   2910
  358.       XScale          =   0
  359.       YScale          =   0
  360.    End
  361. End
  362.  
  363. Sub Selector3_Change ()
  364.  
  365.     selector3.FontName = selector3.SelectionCaption
  366.     
  367. End Sub
  368.  
  369. Sub Selector7_Change ()
  370.  
  371.     selector7.SelectionID = selector7.Value
  372.     selector7.BackgroundColor = selector7.SelectionColor
  373.  
  374. End Sub
  375.  
  376.